Private Sub CommandButton1_Click()

    ̵ ListBox1, ListBox2, ü̵:=False
    
    Label2.Caption = " : " & ListBox1.ListCount
    Label4.Caption = " : " & ListBox2.ListCount

End Sub

Private Sub CommandButton2_Click()

    If ListBox1.ListCount > 0 Then

        ̵ ListBox1, ListBox2, ü̵:=True
        
        Label2.Caption = " : " & ListBox1.ListCount
        Label4.Caption = " : " & ListBox2.ListCount

    End If

End Sub

Private Sub CommandButton3_Click()

    ̵ ListBox2, ListBox1, ü̵:=False
    
    Label2.Caption = " : " & ListBox1.ListCount
    Label4.Caption = " : " & ListBox2.ListCount

End Sub

Private Sub CommandButton4_Click()

    If ListBox2.ListCount > 0 Then

        ̵ ListBox2, ListBox1, ü̵:=True
        
        Label2.Caption = " : " & ListBox1.ListCount
        Label4.Caption = " : " & ListBox2.ListCount

    End If

End Sub